1 POKE46,66:CLR 5 POKE53280,0:POKE53281,0 6 PRINT"[147] REAL TIME LUNAR LANDER" 7 PRINT" JOYSTICK IN PORT #2":POKE53269,0:J=56320:DIMH$(236) 8 FORI=1TO4000:NEXT 9 F$=CHR$(180) : L$=CHR$(170) 10 PRINTCHR$(147)" PREPARING TO LAUNCH LANDER [146]" 11 PRINT" 100 "F$" "L$" 500 12 [131] 0.0,.10,.40,1.0,1.5,2.0,5.0,10.0,20.0,60.0 13 [131] 235,219,203,179,163,155,131,115,99 14 [129]I[178]0[164]9:[135]T(I):[130]:[129]I[178]1[164]9:[135]YB(I):[130] 15 [131] 500,483,466,450,433,415,397,387,377,368,359,350,340,330,320 16 [131] 310,300,290,281,272,263,254,244,236,228,220,210,200,192,184,176 17 [131] 168,161,154,147,140,136,132,128,124,120,116,112,108,104,100,96 18 [131] 92 ,89 ,86 ,83 ,80 ,77 ,74 ,71 ,68 ,65 ,55 ,40 ,30 ,20 ,10 ,0 , 19 [129]I[178]50[164]236[169]3:[135]H$(I):[130]:[135]QW$:H$(197)[178]"86 " 20 [153]" 80.0 "F$" "L$" 450 30 PRINT" 60.0 "F$" "L$" 400 40 [153]" 50.0 "F$" "L$" 375 50 PRINT" 40.0 "F$" "L$" 350 60 [153]" 30.0 "F$" "L$" 325 70 PRINT" 20.0 "F$" "L$" 300 80 [153]" 15.0 "F$" "L$" 275 90 PRINT" 10.0 "F$" "L$" 250 100 [153]" 7.50 "F$" "L$" 225 110 PRINT" 5.00 "F$" "L$" 200 120 [153]" 4.00 "F$" "L$" 175 130 PRINT" 3.00 "F$" "L$" 150 140 [153]" 2.00 "F$" "L$" 140 150 PRINT" 1.50 "F$" "L$" 130 160 [153]" 1.25 "F$" "L$" 120 170 PRINT" 1.00 "F$" "L$" 110 180 [153]" 0.80 "F$" "L$" 100 190 PRINT" 0.60 "F$" "L$" 90 200 [153]" 0.40 "F$" "L$" 80 210 PRINT" 0.20 "F$" "L$" 70 220 [153]" 0.10 "F$" "L$" 60 230 PRINT" 0.05 "F$" "L$" 30 240 [153]" 0.00 "[199](204);:[129]I[178]1[164]24:[153][199](175);:[130]:[153][199](186); 250 [153]" 0"; 300 V[178]53248:[151]V[170]16,2:[151]53265,27:[151]V[170]21,0 301 [129]I[178]0[164]3:[151]2040[170]I,250[170]I:[151]V[170]39[170]I,1:[130] 302 [129]I[178]0[164]7:P(I)[178]2[174]I:[130]:D[178]1:E[178]2:F[178]7:G[178]8:H[178]16000:C[178]64:A[178]20:Z[178]3 310 [129]I[178].[164]144:[135]T:[151]1024,I:[139]T[179]0[167][129]J[178]1[164][171]T:[151]H[170]P[170]J,0:[130]:P[178]P[171]T:[137]320 315 P[178]P[170]1:[151]H[170]P,T 320 [130] 321 A[178]100.0:L$[178]" " 330 X1[178]V:Y1[178]V[170]1:X2[178]V[170]2:Y2[178]V[170]3:X3[178]V[170]4:Y3[178]V[170]5:X4[178]V[170]6:Y4[178]V[170]7 335 T[178]51:B[178]236:L[178]18:R[178]65 340 [151]X1,L:[151]X2,R:F$[178]"5000":[151]X3,160:[151]Y3,T:[151]V[170]29,12 350 [151]V[170]23,8:[151]V[170]21,7:J[178]56320:E[178]125:Q[178]126:G[178]3:C[178]162:[153]""; 360 V$[178]"0.0000":A$[178]"100.00" 370 I[178]2.4:U[178]212:[151]Y1,T:[151]Y2,U:R[178]2000:S[178]5000:T[178]10:Y[178]200 375 C[178]16:D[178]6:[151]V[170]21,7 380 [153]"ALT="A$" VEL="V$" THR="H$(U)" FUEL="F$:[153]"ON"; 385 F[178]5000:W[178]0:A[178]100 390 [153]""A$""V$""H$(U)""F$:[153]"ON"; 400 Z[178][194](J):[139]Z[178]E[175](U[179]B)[167]U[178]U[170]G:[151]Y2,U:[137]420 403 [139]Z[178]Q[175](U[177]T)[167]U[178]U[171]G:[139]U[177]50[167][151]Y2,U:[137]420 404 [139]U[179]50[167]U[178]50 407 [139](Z[175]C)[178].[167]U[178]B:[151]Y2,U 420 X[178][197](H$(U)):F[178]F[171]X[173]T:V2[178](R[172]X[173](S[170]F))[171]T[172]I:W[178]W[170]V2[173]T:A[178]A[170]W[173]Y 430 A$[178][200]([196](A)[170]L$,D):V$[178][200]([196](W)[170]L$,D):F$[178][202]([196](F)[170]L$,2,4) 440 [141]500 445 [139]A[177].01[167]450 446 [137]470 450 [139]F[177][178].[167]390 460 [153][199](19)[199](18)" YOU ARE OUT OF FUEL ":[137]474 470 [153]" THROTTLE LOCKED UP" 471 [153]" RETROS FIRING" 472 [153]" BEGIN LANDINGWAIT" 474 Q[178]237[171][194](Y1):[129]I[178]1[164]Q:Z[178][194](Y1)[170]1:[151]Y1,Z:[151]Y3,Z[171]5 475 [129]L[178]1[164]80:[130]:[130]:[151]Y1,235:[139]F[179].[167]482 480 [139]W[177][178][171]5[167][137]485 481 [139]W[177][178][171]15[167]490 482 [153]" WAY TOO HARDWAIT":[151]2042,253 483 [153]" YOU BOUGHT THE FARMWAIT" 484 [151]X3[170]2,160:[151]Y3,225:[137]650 485 [153]"GREAT LANDINGWAIT":[137]650 490 [153]" NOT SO HOT, BUTWAIT" 491 [153]" YOU MADE ITWAIT" 492 [137]650 500 [139]A[179]0[167][142] 501 [139]A[179]T(1)[167]Y[178]YB(1)[171](A[171]T(0))[172]160:[137]600 510 [139]A[179]T(2)[167]Y[178]YB(2)[171](A[171]T(1))[172]80:[137]600 520 [139]A[179]T(3)[167]Y[178]YB(3)[171](A[171]T(2))[172]40:[137]600 530 [139]A[179]T(4)[167]Y[178]YB(4)[171](A[171]T(3))[172]32:[137]600 540 [139]A[179]T(5)[167]Y[178]YB(5)[171](A[171]T(4))[172]16:[137]600 550 [139]A[179]T(6)[167]Y[178]YB(6)[171](A[171]T(5))[172]8:[137]600 560 [139]A[179]T(7)[167]Y[178]YB(7)[171](A[171]T(6))[172]3.2:[137]600 570 [139]A[179]T(8)[167]Y[178]YB(8)[171](A[171]T(7))[172]1.6:[137]600 580 [139]A[179]T(9)[167]Y[178]YB(9)[171](A[171]T(8))[172].8:[137]600 590 Y[178]67[171](A[171]T(9))[172].4 600 [139]Y[177]50[167][151]Y1,[181](Y):[151]Y3,[181](Y):CO[178]0:[142] 605 CO[178]CO[170]1:[139]CO[179]15[167][142] 610 [153]"YOU ARE LEAVING THEWAIT" 615 [153]"MOON'S GRAVITATIONAL FIELDWAIT" 620 [153]"AND WILL DRIFT ENDLESSLYWAIT" 625 [153]"IN THE DARK REACHES OF SPACEWAIT" 650 [153][199](19)[199](18)" F1 TO PLAY AGAIN, F3 TO STOP " 652 [161]A$:[139]A$[178][199](133)[167][138] 653 [139]A$[178][199](134)[167][151]V[170]21,0:[153][199](147):[151]46,27:[137]60000 654 [137]652 700 [131] -18,4,-2,7,-2,7,192,3,255,240,255,255,252,3,255,240,0,7,192,0,7 701 [131] -2,4,-36,64,0,1,192,0,7,192,0,31,255,192,127,255,192,31,255,192 702 [131] 7,192,0,1,192,-2,64,-39,129,0,1,129,128,7,255,224,30,126,120,252 703 [131] 60,63,30,126,120,7,255,224,1,255,128,1,129,128,3,0,192,15,129 704 [131] 240,-16,15,197,224,31,247,226,29,255,254,125,254,124,127,255 705 [131] 254,255,255,255,199,187,187,219,17,147,219,85,131,219,85,171 706 [131] 199,85,187,219,85,187,219,85,187,219,17,187,199,187,187,255,255 707 [131] 254,127,239,254,127,239,254,63,255,228,32,253,196,3,157,128 60000 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN" 60002 [151]631,13:[151]632,13:[151]198,2:[128]